"JULY LISTING 7" AS SAVED ON DISK
0800              1           TTL "Listing 7 : SPEED/ASM Equates"
0800              2  ;
0800              3  ;
0800              4  ;
0800              5  *************************************
0800              6  *                                   *
0800              7  *          SPEED/ASM Equates        *
0800              8  *                                   *
0800              9  *************************************
0800             10  ;
0800             11  ;
0800             12  ;
0800             13  ;
0800             14  ;
0800             15  ;
0800             16  ;
0800             17  ;
0800             18  ; GENERAL PURPOSE EQUATES
0800             19  ;
0800             20  ; The following variables are used
0800             21  ; by the SPEED/ASM package and
0800             22  ; shouldn't be used by the SPEED/ASM
0800             23  ; programmer.
0800             24  ;
0800             25  ;
0800             26  ;
0800             27  ;
0000             28  FORASAV  EPZ 0
0001             29  FORXSAV  EPZ FORASAV+1
0002             30  FORYSAV  EPZ FORXSAV+1
0003             31  FORZPG   EPZ FORYSAV+1
0005             32  DESTADR  EPZ FORZPG+2
0007             33  PTRADR   EPZ DESTADR+2
0009             34  ISIMMED  EPZ PTRADR+2
000A             35  OP       EPZ ISIMMED+1
000C             36  MAXLEN   EPZ OP+2
000D             37  VALUE    EPZ MAXLEN+1
000F             38  DIGIT    EPZ VALUE+2
0010             39  LEAD0    EPZ DIGIT+1
0011             40  JMPADR   EPZ LEAD0+1
0013             41  COUNT    EPZ JMPADR+2
0014             42  GOTLN    EPZ COUNT+1
0015             43  LINEINDX EPZ GOTLN+1
0016             44  SIGN     EPZ LINEINDX+1
0017             45  ACL      EPZ SIGN+1
0018             46  ACH      EPZ ACL+1
0019             47  XTNDL    EPZ ACH+1
001A             48  XTNDH    EPZ XTNDL+1
001B             49  AUXL     EPZ XTNDH+1
001C             50  AUXH     EPZ AUXL+1
0800             51  ;
0033             52  PROMPT   EPZ $33
004E             53  RNDL     EPZ $4E
004F             54  RNDH     EPZ $4F
0100             55  STACK    EQU $100
0200             56  INPUT    EQU $200
0800             57  ;
0800             58  ;
0800             59  ;
0800             60  ;
0800             61  ;
0800             62  ;
0800             63  ;
0800             64  *****************
0800             65  *   CONSTANTS   *
0800             66  *****************
0800             67  ;
0800             68  ;
0800             69  ;
0800             70  ; The following symbols are constants
0800             71  ; for values "FALSE", "TRUE", and
0800             72  ; Carriage Return (respectively)
0800             73  ;
0800             74  ; These symbols should only appear
0800             75  ; as immediate operands to a 6502
0800             76  ; instruction or in the operand field
0800             77  ; of a pseudo-opcode like BYT.
0800             78  ;
0800             79  ;
0800             80  ;
0800             81  ;
0800             82  ;
0000             83  FALSE    EQU 0
0001             84  TRUE     EQU 1
008D             85  CR       EQU $8D
0800             86  ;
0800             87  ;
0800             88  ;
0800             89  ;
0800             90  ;
0800             91  ;
0800             92  ; "IF" STATEMENT EQUATES
0800             93  ;
0800             94  ; The following symbols should only
0800             95  ; be used in the ADR pseudo-opcode
0800             96  ; following a call to the SPEED/ASM
0800             97  ; IFx routines.
0800             98  ;
0800             99  ;
0800            100  ;
00BD            101  EQ       EQU "="
00A3            102  NE       EQU "#"
00BE            103  GT       EQU ">"
00BC            104  LT       EQU "<"
BDBE            105  GE       EQU ">"|"="*256
BDBC            106  LE       EQU "<"|"="*256
0800            107  ;
0800            108  ;
0800            109  ;
0800            110  ;
0800            111  ;
0800            112  ;
0800            113  ;
0800            114  ****************************
0800            115  *  SPEED/ASM ENTRY POINTS  *
0800            116  ****************************
0800            117  ;
0800            118  ;
0800            119  ;
0800            120  ;
0800            121  ; NOTE: THE EQUATE OF PUTC MUST
0800            122  ; BE CHANGED IF YOU RELOCATE
0800            123  ; SPEED/ASM TO SOME LOCATION
0800            124  ; OTHER THAN $7800
0800            125  ;
0800            126  ;
0800            127  ;
7800            128  PUTC     EQU $7800
7803            129  GETC     EQU PUTC+3
7806            130  SAGL     EQU GETC+3          ;FOR USE BY S/A ONLY- SEE DOC.
7809            131  SAPC     EQU SAGL+3          ; "   "   "  "   "     "   "
780C            132  HOME     EQU SAPC+3          ;HOME AND CLEAR
780F            133  READLN   EQU HOME+3
7812            134  INIT     EQU READLN+3
7815            135  FOR      EQU INIT+3
7818            136  FOR0     EQU FOR+3
781B            137  NEXT     EQU FOR0+3
781E            138  IFI      EQU NEXT+3
7821            139  IFI0     EQU IFI+3
7824            140  IFS      EQU IFI0+3
7827            141  IFS0     EQU IFS+3
782A            142  MOVE     EQU IFS0+3
782D            143  LOAD     EQU MOVE+3
7830            144  MOVS     EQU LOAD+3
7833            145  LDSTR    EQU MOVS+3
7836            146  PRINT    EQU LDSTR+3
7839            147  PRTSTR   EQU PRINT+3
783C            148  PRTINT   EQU PRTSTR+3
783F            149  RDSTR    EQU PRTINT+3
7842            150  RDINT    EQU RDSTR+3
7845            151  ONXGOTO  EQU RDINT+3
7848            152  CASE     EQU ONXGOTO+3
784B            153  CASEI    EQU CASE+3
784E            154  INSET    EQU CASEI+3
7851            155  NOTINSET EQU INSET+3
7854            156  ABS      EQU NOTINSET+3
7857            157  NEG      EQU ABS+3
785A            158  MUL      EQU NEG+3
785D            159  DIV      EQU MUL+3
7860            160  MOD      EQU DIV+3
7863            161  RND      EQU MOD+3
7866            162  SUBSTR   EQU RND+3
7869            163  INDEX    EQU SUBSTR+3
786C            164  LENGTH   EQU INDEX+3
786F            165  CONCAT   EQU LENGTH+3
7872            166  GETWZPG  EQU CONCAT+3        ;USED BY SPEED/ASM
7875            167  RDFP     EQU GETWZPG+3
7878            168  PRTE     EQU RDFP+3
787B            169  PRTF     EQU PRTE+3
787E            170  FADD     EQU PRTF+3
7881            171  FSUB     EQU FADD+3
7884            172  FMUL     EQU FSUB+3
7887            173  FDIV     EQU FMUL+3
788A            174  FLT      EQU FDIV+3
788D            175  FIX      EQU FLT+3
7890            176  FNEG     EQU FIX+3
7893            177  FADDTN   EQU FNEG+3
7896            178  FSUBTN   EQU FADDTN+3
7899            179  FTIMES   EQU FSUBTN+3
789C            180  FINTO    EQU FTIMES+3
789F            181  IFF      EQU FINTO+3
78A2            182  MOVFP    EQU IFF+3
0800            183  ;
0800            184  ;
0800            185  ;
0800            186           END